10 REM *** ELECTION DOC             ***
11 REM *** BY JOHN BELTRAMI         ***
12 REM *** TRANSLATED FOR THE 64 BY ***
13 REM *** DONNA K. WOODY           ***
20 POKE53280,9:POKE53281,7:PRINTCHR$(144):PRINTCHR$(14):PRINTCHR$(8):S=65520
21 POKE783,PEEK(783)AND254
30 PRINTCHR$(147)
40 GOSUB2000
50 PRINT"[147]LOAD"CHR$(34)"ELEC. NIGHT STAR"CHR$(34)",8":PRINT"RUN"
60 POKE631,13:POKE632,13:POKE198,2:END
1500 REM *** PAGE INTERRUPT         ***
1501 POKE783,PEEK(783)AND254
1510 POKE781,23:POKE782,5:SYSS:PRINT"[208]RESS <[211][208][193][195][197] [194][193][210]> TO CONTINUE.";
1520 POKE198,0:WAIT198,1:GETY$
1530 PRINTCHR$(147)
1540 RETURN
2000 REM *** TEXT DUMP              ***
2001 POKE781,2:POKE782,14:SYSS:PRINT"[129][197][204][197][195][212][201][207][206][160][206][201][199][200][212]"
2002 POKE781,4:POKE782,13:SYSS:PRINT"BY [202]OHN [194]ELTRAMI"
2003 POKE781,6:POKE782,4:SYSS:PRINT"[212]RANSLATED FOR THE [195]OMMODORE BY"
2004 POKE781,8:POKE782,14:SYSS:PRINT"[196]ONNA [203]. [215]OODY[144]"
2018 PRINT:PRINT
2019 PRINT"     [212]HE [213]NITED [211]TATES WILL NOT ELECT A":PRINT
2021 PRINT"[208]RESIDENT IN [206]OVEMBER!  [201]N FACT, WE":PRINT
2024 PRINT"WILL NOT ELECT THE [208]RESIDENT AT ALL.":PRINT
2028 PRINT"[201]NSTEAD, A SELECT GROUP OF 538 STATE":PRINT
2032 PRINT"POLITICAL PARTY MEMBERS WILL GATHER IN":PRINT
2040 PRINT"[196]ECEMBER AND CHOOSE OUR NEXT [208]RESIDENT."
2043 GOSUB1500
2045 PRINT"     [201]T MAY SEEM CRAZY, BUT IT IS ALL":PRINT
2049 PRINT"TRUE.  [217]OU SEE, WE LIVE IN A":PRINT
2053 PRINT"REPRESENTATIVE DEMOCRACY AND NOT A TRUE":PRINT
2057 PRINT"DEMOCRACY.  [212]HE [195]ONSTITUTION OF THE":PRINT
2061 PRINT"[213]NITED [211]TATES PROVIDES FOR THE ELECTION":PRINT
2065 PRINT"OF THE MEMBERS OF THE ELECTORAL COLLEGE":PRINT
2069 PRINT"ON THAT VITAL [212]UESDAY IN [206]OVEMBER EVERY":PRINT
2073 PRINT"FOUR YEARS.  [212]HE [208]RESIDENTIAL CANDIDATE":PRINT
2077 PRINT"THAT ACCUMULATES THE GREATEST NUMBER OF":PRINT
2086 PRINT"PERSONAL VOTES IN A STATE TRIGGERS THE":PRINT
2090 PRINT"ELECTION OF A SLATE OF ELECTORAL":PRINT
2092 GOSUB1500
2094 PRINT"COLLEGE MEMBERS THAT WILL REPRESENT":PRINT
2098 PRINT"THAT CANDIDATE IN A PRIVATE ELECTION":PRINT
2102 PRINT"HELD IN EARLY [196]ECEMBER.  [212]HE ELECTORAL":PRINT
2106 PRINT"COLLEGE MEMBERS USUALLY CAST ALL THEIR":PRINT
2110 PRINT"VOTES FOR THE CANDIDATE THAT EARNED":PRINT
2114 PRINT"THEIR ALLEGIANCE, THUS PRESERVING THE":PRINT
2118 PRINT"ILLUSION THAT WE DIRECTLY ELECT THE":PRINT
2122 PRINT"HIGHEST RANKING OFFICIAL IN THE FREE":PRINT
2127 PRINT"WORLD.  [212]HE ELECTORAL COLLEGE IS A":PRINT
2131 PRINT"VESTIGE OF OUR HISTORICAL ROOTS,":PRINT
2135 PRINT"DORMANT IN OUR COLLECTIVE MEMORIES":PRINT
2137 GOSUB1500
2139 PRINT"UNTIL THE [208]RESIDENTIAL CAMPAIGNS HEAT":PRINT
2143 PRINT"UP AND THE POLITICAL EXPERTS REMIND US":PRINT
2151 PRINT"THAT POLITICAL POWER LIES IN THE":PRINT
2155 PRINT"WESTERN AND SUNBELT STATES.  [201]T IS NOW":PRINT
2159 PRINT"POSSIBLE THAT A SUCCESSFUL PRESIDENTIAL":PRINT
2163 PRINT"CANDIDATE COULD WIN THE ELECTION AND":PRINT
2168 PRINT"NOT CARRY A SINGLE NORTHEAST-INDUSTRIAL":PRINT
2172 PRINT"STATE DUE TO THE RE-DISTRIBUTION OF":PRINT
2180 PRINT"POPULATION AND, YOU GUESSED IT, THE":PRINT
2184 PRINT"ELECTORAL VOTES THAT ARE TIED TO STATE":PRINT
2188 PRINT"POPULATION FIGURES."
2190 GOSUB1500
2192 PRINT"       [215]E GENERALLY FOLLOW POLITICAL":PRINT
2196 PRINT"CAMPAIGNS WITH A GRADUALLY INCREASING":PRINT
2200 PRINT"SENSE OF INTEREST, LOW AT FIRST,":PRINT
2204 PRINT"BUILDING THROUGH THE SUMMER AND THE":PRINT
2209 PRINT"PARTY CONVENTIONS AND FINALLY WHIPPING":PRINT
2213 PRINT"UP INTO A FRENZY IN [206]OVEMBER.  [197]VEN AS":PRINT
2217 PRINT"A SCHOOLBOY, [201] FELT OBLIGATED TO FIGHT":PRINT
2225 PRINT"THE SEDUCTION OF THE SANDMAN UNTIL THE":PRINT
2229 PRINT"TELEVISION ANNOUNCERS BROADCASTED THE":PRINT
2233 PRINT"LATE, ALMOST-FINAL RESULTS AND LABELLED":PRINT
2237 PRINT"A CANDIDATE AS A PROBABLE WINNER.  [201]":PRINT
2240 GOSUB1500
2241 PRINT"WROTE [197][204][197][195][212][201][207][206][160][206][201][199][200][212] SO THAT [201] COULD":PRINT
2245 PRINT"FOLLOW THE ELECTION NIGHT RETURNS AT A":PRINT
2250 PRINT"DEEPER LEVEL AND, PERHAPS, INTERJECT MY":PRINT
2258 PRINT"OWN INSIGHT AND GUESSWORK INTO THE":PRINT
2262 PRINT"PROCESS AND PICK THE EVENTUAL WINNER":PRINT
2266 PRINT"BEFORE THE 'EXPERTS'.":PRINT
2270 PRINT"       [197][204][197][195][212][201][207][206][160][206][201][199][200][212] IS A TOOL THAT":PRINT
2274 PRINT"ALLOWS YOU TO ENTER ELECTION RETURNS":PRINT
2276 PRINT"AND TALLEY THE RESULTS.  [206]OT MUCH":PRINT
2282 PRINT"IMPROVEMENT OVER A PAD AND PENCIL,":PRINT
2286 PRINT"RIGHT?  [212]O MAKE THE PROGRAM USEFUL, [201]":PRINT
2287 GOSUB1500
2291 PRINT"INCLUDED THE SIZE OF THE ELECTORAL":PRINT
2295 PRINT"DELEGATION THAT EACH STATE AND THE":PRINT
2299 PRINT"[196]ISTRICT OF [195]OLUMBIA IS ENTITLED TO":PRINT
2302 PRINT"UNDER THE [195]ONSTITUTION AND THE":PRINT
2307 PRINT"POLITICAL PARTY THAT CAPTURED EACH":PRINT
2311 PRINT"STATE'S DELEGATION IN THE LAST SIX":PRINT
2315 PRINT"PRESIDENTIAL ELECTIONS.  [215]HEN YOU TYPE":PRINT
2319 PRINT"IN POPULAR VOTE COUNTS, YOU ACTUALLY":PRINT
2323 PRINT"MIMIC THE ELECTORAL COLLEGE AT WORK.":PRINT
2327 PRINT"[212]HE PARTY THAT GAINS AN ADVANTAGE AT":PRINT
2336 PRINT"THE POLLS GARNERS THAT STATE'S ELECTORAL"
2338 GOSUB1500
2340 PRINT"VOTES, WHETHER THE MARGIN WAS":PRINT
2344 PRINT"SUBSTANTIAL OR RAZOR-THIN.":PRINT
2348 PRINT"       [211]UPPOSE THAT, CONTRARY TO":PRINT
2352 PRINT"CONVENTIONAL WISDOM, YOU SUSPECT THAT":PRINT
2356 PRINT"THE [196]EMOCRATIC TICKET WILL DO WELL IN":PRINT
2360 PRINT"THE WESTERN STATES.  [217]OU CAN ENTER VOTE":PRINT
2364 PRINT"COUNTS WITH THAT BIAS IN MIND AND TEST":PRINT
2368 PRINT"THE EFFECT OF YOUR SUSPICIONS ON THE":PRINT
2373 PRINT"COURSE OF THE ELECTION.  [210]EMEMBER, 270":PRINT
2375 PRINT"ELECTORAL COLLEGE VOTES ARE REQUIRED TO":PRINT
2385 PRINT"ELECT A [208]RESIDENT.  [217]OUR OPINION IS":PRINT
2387 GOSUB1500
2389 PRINT"JUST AS VALID AS ANY OTHER VOTER OR,":PRINT
2393 PRINT"DARE [201] SAY IT, ANY PROFESSIONAL":PRINT
2397 PRINT"POLLSTER.  [193]T LEAST UNTIL THE FIRST":PRINT
2401 PRINT"[215]EDNESDAY AFTER THE FIRST [212]UESDAY IN":PRINT
2405 PRINT"[206]OVEMBER, OR DO YOU WANT TO COUNT THAT":PRINT
2409 PRINT"FUNNY ELECTION THEY HOLD AT THE":PRINT
2414 PRINT"'COLLEGE' IN [196]ECMEBER AS WELL?":PRINT
2422 PRINT"       [207]NLY IN [193]MERICA!"
2430 GOSUB1500
2440 RETURN